package Restartable::ButUnreliable;
use Moose::Role;

with 'Restartable' => {
	-alias => {
		stop  => '_stop',
		start => '_start'
	},
	-excludes => [ 'stop', 'start' ],
};

sub stop {
	my $self = shift;
	
	$self->explode() if rand(1) > .5;
	
	$self->_stop;
}

sub start {
	my $self =shift;
	
	$self->explode() if rand(1) > .5;
	
	$self->_start();
}

1;